home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / upl.arc / PRGUSERS.UPL < prev    next >
Encoding:
Text File  |  1987-03-08  |  988 b   |  53 lines
  1. ; Delete any users who have no mail credit and
  2. ; have not called within the last 30-60 days, depending on number of calls
  3.  
  4. print "Name$09$09Last Called$09$09Daysago$09Calls"
  5. print "----$09$09-----------$09$09-------$09-----"
  6. end
  7. run
  8.  
  9. ifeq @credit 0
  10.   set @var0 20
  11.   add @var0 @calls
  12.   iflt @var0 30
  13.     set @var0 30
  14.   else
  15.     ifgt @var0 60
  16.       set @var0 60
  17.     endif
  18.   endif
  19.   ifgt @daysago @var0
  20.     set @delflg1 @on
  21.     print '@name$09@lastcall$09@daysago$09@calls'
  22.   endif
  23. endif
  24. run
  25.  
  26. purge
  27. end
  28. run
  29.  
  30.  
  31. ; Twit any disgraced users who've gotten their warnings,
  32. ; and upgrade any normal users who've been good contributors.
  33.  
  34. print
  35. print "Privilege changes:"
  36. end
  37. run
  38.  
  39. ifeq @priv @disgraced
  40.   ifgt @calls 1
  41.     set @priv @twit
  42.     print "@name demoted from disgraced to twit."
  43.   endif
  44. else
  45.   ifeq @priv @normal
  46.     ifgt @uploads 256
  47.       set @priv @privel
  48.       print "@name promoted from normal to privel."
  49.     endif
  50.   endif
  51. endif
  52. run
  53.